home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 June / Ahoy_Magazine_87-06_1987_Double_L.d64 / 64 Bug Rep II (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  43 lines
  1. 10 printchr$(147)"loading and checking the data...":j=49152
  2. 20 forb=0to11:reada:ifa<0ora>255then40
  3. 30 pokej+b,a:x=x+a:nextb:reada:ifa=xthen50
  4. 40 print:print"error in data line:"peek(64)*256+peek(63):end
  5. 50 x=0:j=j+12:ifj<49456then20
  6. 60 poke198,0:poke49456,0:a$="y":b$=a$:c$="d":d$="disk":d=8:printchr$(147)
  7. 70 input"do you want automatic saves (y/n)";a$:print:ifa$="y"then90
  8. 80 print"no automatic saves...":goto150
  9. 90 poke49456,1:input"disk or tape (d/t)";c$:ifc$<>"d"thend=1:d$="tape"
  10. 100 poke49457,d:d$=d$+" drive":print:input"file number (0-99)";n
  11. 110 n$=right$(str$(n),2):ifn<10thenn$=chr$(48)+chr$(n+48)
  12. 120 f$="backup":print:input"filename";f$:f$=n$+left$(f$,14):l=len(f$)
  13. 130 poke49458,l:forj=1tol:poke49458+j,asc(mid$(f$,j,1)):nextj:print
  14. 140 print"saving device ** "d$:print"starting with ** "f$
  15. 150 print:input"is this correct (y/n)";b$:ifb$<>"y"then60
  16. 160 poke770,131:poke771,164:sys49152:end
  17. 170 data169,79,32,210,255,162,38,160,192,204,3,3,1507
  18. 180 data208,10,162,131,160,164,169,70,32,210,255,44,1615
  19. 190 data169,78,32,210,255,142,2,3,140,3,3,76,1113
  20. 200 data36,193,32,96,165,134,122,132,123,32,115,0,1180
  21. 210 data170,240,243,162,255,134,58,144,3,76,150,164,1799
  22. 220 data32,107,169,32,121,165,173,0,2,240,5,169,1215
  23. 230 data79,141,2,3,76,162,164,169,0,133,2,133,1064
  24. 240 data251,133,252,133,254,24,101,20,69,254,230,254,1975
  25. 250 data24,101,21,69,254,170,230,254,164,252,185,0,1724
  26. 260 data2,133,253,201,34,208,6,165,2,73,255,133,1465
  27. 270 data2,201,32,208,4,165,2,240,8,138,24,101,1125
  28. 280 data253,69,254,170,44,198,254,230,252,164,253,208,2349
  29. 290 data213,138,41,240,74,74,74,74,24,105,129,141,1327
  30. 300 data44,193,138,41,15,24,105,129,141,45,193,162,1230
  31. 310 data0,189,43,193,240,12,157,0,4,173,134,2,1147
  32. 320 data157,0,216,232,208,239,169,38,141,2,3,173,1578
  33. 330 data48,193,240,23,165,161,201,212,176,4,165,160,1748
  34. 340 data240,13,238,32,208,160,0,32,225,255,208,6,1617
  35. 350 data32,33,193,76,38,192,232,208,242,200,208,239,1893
  36. 360 data32,68,229,169,0,168,174,49,193,32,186,255,1555
  37. 370 data173,50,193,162,51,160,193,32,189,255,169,43,1670
  38. 380 data166,45,164,46,32,216,255,162,1,189,51,193,1520
  39. 390 data168,200,152,201,58,144,2,169,48,157,51,193,1543
  40. 400 data201,48,208,3,202,16,234,32,33,193,76,116,1362
  41. 410 data164,206,32,208,169,0,170,168,76,219,255,160,1827
  42. 420 data1,1,160,0,0,65,72,79,89,33,0,0,500
  43.